**Graph of change in predictive power and zscores*
*Use "FPA Figure 2 repdata.dta" for this figure* 
*Incident Model*
gr twoway (scatter   rocchange_inc zscore_inc, mlabel(var_inc) mlabv(pos_inc) mlabsize(small) ) (lfit rocchange_inc zscore_inc ), xline(1.96,  lpattern(-) lcolor(gs10)) xlab() legend(off) xscale(range(1.9 5))  title("Incidents Model" , size(med)) xtitle("Statistical Significance") ytitle("Change in Predictive Power") saving(Incidents2, replace)
*Hijacking Model*
gr twoway (scatter   rocchange_hij zscore_hij, mlabel(var_hij) mlabv(pos_hij) mlabsize(small)) (lfit rocchange_hij zscore_hij), xline(1.96, lpattern(-) lcolor(gs10)) xlab() legend(off) xscale(range(1.9 )) title("Hijackings Model", size(med)) xtitle("Statistical Significance") ytitle("Change in Predictive Power") saving(Hijackings1, replace)
